home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cdity / mewandel.lha / mewandel / Install < prev    next >
Encoding:
Text File  |  1998-03-17  |  2.5 KB  |  147 lines
  1. ;
  2. ; Installer-Script for MEWandel 1.0
  3. ; 
  4. ;    Autor    : Malte Eller
  5. ;    Version    : 1.0
  6. ;    Datum    : 15.03.1998
  7. ;
  8. ;    $VER: Install 1.0 (15.03.1998)
  9. ;
  10. ;**************************************************
  11.  
  12. (set @user-level 1)
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set #bad-kick (cat "Leider wird OS2.0 oder höher benötigt"))
  17. (set #askdir1 (cat "Wohin wollen Sie MEWandel installieren?\n"
  18. "Dort wird dann eine neue Schubalde angelegt"))
  19. (set #fragetext (cat "Soll ich das Programm auch in die\n"
  20. " WBStartup kopieren?"))
  21. (set #ja (cat "Ja"))
  22. (set #nein (cat "Nein"))
  23. (set #confirmt (cat "Was soll ich instalieren?"))
  24. (set #fragetextL (cat "Welche Sprachen sollen installiert werden?"))
  25. )
  26.  
  27. (
  28. (set #bad-kick (cat "I need OS2.0 or higher"))
  29. (set #askdir1 (cat "In which Drawe will you install MEWandel?\n"
  30. "A new Drawer will be create"))
  31. (set #fragetext (cat "Shall I copy the Progrmm to WBStartup"))
  32. (set #ja (cat "Yes"))
  33. (set #nein (cat "No"))
  34. (set #confirmt (cat "What should I install?"))
  35. (set #fragetextL (cat "Which languages should I install?"))
  36. ))
  37.  
  38. ;**************************************************
  39.  
  40. (if (< (/ (getversion) 65536) 37)
  41. (
  42.     (abort #bad-kick)
  43. ))
  44.  
  45. ;**************************************************
  46.  
  47. (complete 0)
  48.  
  49. (set #name
  50.     (askdir
  51.         (prompt #askdir1)
  52.         (help @askdir-help)
  53.         (default "SYS:Tools")
  54.     )
  55. )
  56.  
  57. (set #Dname (tackon #name "MEWandel"))
  58.  
  59. (makedir #Dname
  60.  (infos)
  61. )
  62.  
  63. (copyfiles
  64.     (source "")
  65.     (dest #Dname)
  66.     (pattern "#?")
  67.     (prompt #confirmt)
  68.     (help @confirm-help)
  69.     (confirm)
  70. )
  71.  
  72. (complete 50)
  73.  
  74. ;**************************************************
  75.  
  76. (set name
  77.     (askoptions
  78.         (prompt #fragetext)
  79.         (help @askoptions-help)
  80.         (choices #Ja)
  81.         (default 1)
  82.     )
  83. )
  84.  
  85. (if (= 1 name)
  86. (
  87.  (copyfiles
  88.     (source "MEWandel")
  89.     (dest "sys:WBStartup")
  90.     (prompt #fragetext)
  91.     (help @confirm-help)
  92.     (confirm)
  93.  )
  94.  (copyfiles
  95.     (source "MEWandel.info")
  96.     (dest "sys:WBStartup")
  97.     (prompt #fragetext)
  98.     (help @confirm-help)
  99.     (confirm)
  100.  )
  101. )
  102. )
  103.  
  104. (complete 80)
  105.  
  106. ;**************************************************
  107.  
  108. (if (exists "sys:locale/catalogs")
  109.  
  110.  (set #lang (askoptions
  111.         (prompt #fragetextL)
  112.         (help @askoptions-help)
  113.         (choices "Deutsch" "English")
  114.         (default 1))
  115.  )
  116. )
  117.  
  118. (set #n 0)
  119.  
  120. (while
  121.     (set #sprache
  122.          (select #n
  123.              "Deutsch"
  124.              "English"
  125.              ""
  126.          )
  127.      )
  128.     (
  129.      (if (IN #lang #n)
  130.         (
  131.          (set #catalog (tackon "Catalogs" (tackon #sprache "mewandel.catalog")))
  132.          (set #destination (tackon "Locale:Catalogs/" #sprache))
  133.          (copyfiles
  134.             (source #catalog)
  135.             (dest #destination)
  136.             (prompt #confirmt)
  137.             (help @confirm-help)
  138.             (confirm))
  139.         )
  140.      )
  141.      (set #n (+ #n 1))
  142.     )
  143. )
  144.  
  145.  
  146. (complete 100)
  147.